home *** CD-ROM | disk | FTP | other *** search
/ com!online 2002 January / com! 2002.01.iso / autohtml / selfhtml / html / multimedia / anzeige / nibbles.swf / scripts / frame_25 / DoAction.as
Encoding:
Text File  |  2001-10-27  |  1.2 KB  |  53 lines
  1. n = "0";
  2. while(n < tbox)
  3. {
  4.    n += "1";
  5.    set("bxt" add n,eval("bx" add n));
  6.    set("byt" add n,eval("by" add n));
  7. }
  8. n = "0";
  9. while(n < tbox)
  10. {
  11.    n += "1";
  12.    n1 = cbox + n;
  13.    if(tbox < n1)
  14.    {
  15.       n1 -= tbox;
  16.    }
  17.    set("bx" add n,eval("bxt" add n1));
  18.    set("by" add n,eval("byt" add n1));
  19.    setProperty("box" add n, _X, eval("bxt" add n1) * boxw);
  20.    setProperty("box" add n, _Y, eval("byt" add n1) * boxh);
  21. }
  22. cbox = tbox;
  23. num += "1";
  24. tbox = num * "10";
  25. if(num < "10")
  26. {
  27.    ok = "0";
  28.    while(ok == "0")
  29.    {
  30.       numx1 = random(totalboxx - "2") + "2";
  31.       numy1 = random(totalboxy - "3") + "2";
  32.       numx2 = numx1;
  33.       numy2 = numy1 + "1";
  34.       if(eval("x" add numx1 add "y" add numy1) == "0" and eval("x" add numx2 add "y" add numy2) == "0")
  35.       {
  36.          ok = "1";
  37.          set("x" add numx1 add "y" add numy1,"20");
  38.          set("x" add numx2 add "y" add numy2,"20");
  39.          setProperty("nummc", _X, numx1 * boxw);
  40.          setProperty("nummc", _Y, numy1 * boxh);
  41.          tellTarget("nummc")
  42.          {
  43.             gotoAndStop(eval("../:num"));
  44.          }
  45.       }
  46.    }
  47. }
  48. else
  49. {
  50.    call("nextlevel");
  51.    gotoAndStop(9);
  52. }
  53.